home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / ada / adaed-1.11 / adaed-1 / Adaed-1.11.0a / pnodes.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-07  |  13.3 KB  |  208 lines
  1. /*
  2.  * Copyright (C) 1985-1992  New York University
  3.  * 
  4.  * This file is part of the Ada/Ed-C system.  See the Ada/Ed README file for
  5.  * warranty (none) and distribution info and also the GNU General Public
  6.  * License for more details.
  7.  
  8.  */
  9. #include "ada.h"
  10.  
  11. int N_DEFINED[] = {
  12.     N_D_AST1 | N_D_AST2,                        /*   0 pragma */
  13.     N_D_AST1 | N_D_AST2,                        /*   1 arg */
  14.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*   2 obj_decl */
  15.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*   3 const_decl */
  16.     N_D_AST1 | N_D_AST2,                        /*   4 num_decl */
  17.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_TYPE,  /*   5 type_decl */
  18.     N_D_AST1 | N_D_AST2 | N_D_UNQ | N_D_TYPE,   /*   6 subtype_decl */
  19.     N_D_AST1 | N_D_AST2 | N_D_UNQ,              /*   7 subtype_indic */
  20.     N_D_AST1,                                   /*   8 derived_type */
  21.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*   9 range */
  22.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_TYPE,  /*  10 range_attribute */
  23.     N_D_AST1 | N_D_LIST,                        /*  11 constraint */
  24.     N_D_AST1 | N_D_LIST,                        /*  12 enum */
  25.     N_D_AST1,                                   /*  13 int_type */
  26.     N_D_AST1,                                   /*  14 float_type */
  27.     N_D_AST1,                                   /*  15 fixed_type */
  28.     N_D_AST1 | N_D_AST2,                        /*  16 digits */
  29.     N_D_AST1 | N_D_AST2,                        /*  17 delta */
  30.     N_D_AST1 | N_D_AST2 | N_D_UNQ,              /*  18 array_type */
  31.     N_D_AST1 | N_D_UNQ,                         /*  19 box */
  32.     N_D_AST1 | N_D_AST2 | N_D_UNQ | N_D_TYPE,   /*  20 subtype */
  33.     N_D_AST1,                                   /*  21 record */
  34.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  22 component_list */
  35.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  23 field */
  36.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  24 discr_spec */
  37.     N_D_AST1 | N_D_AST2,                        /*  25 variant_decl */
  38.     N_D_AST1 | N_D_AST2,                        /*  26 variant_choices */
  39.     N_D_AST1 | N_D_VAL,                         /*  27 string */
  40.     N_D_AST1 | N_D_AST2,                        /*  28 simple_choice */
  41.     N_D_AST1,                                   /*  29 range_choice */
  42.     N_D_AST1,                                   /*  30 choice_unresolved */
  43.     N_D_AST1 | N_D_AST2,                        /*  31 others_choice */
  44.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  32 access_type */
  45.     N_D_AST1,                                   /*  33 incomplete_decl */
  46.     N_D_AST1 | N_D_LIST,                        /*  34 declarations */
  47.     N_D_AST1 | N_D_LIST,                        /*  35 labels */
  48.     N_D_AST1 | N_D_VAL | N_D_TYPE,              /*  36 character_literal */
  49.     N_D_AST1 | N_D_VAL | N_D_UNQ | N_D_TYPE,    /*  37 simple_name */
  50.     N_D_AST1 | N_D_AST2,                        /*  38 call_unresolved */
  51.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  39 selector */
  52.     N_D_AST1 | N_D_UNQ | N_D_TYPE,              /*  40 all */
  53.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_TYPE,  /*  41 attribute */
  54.     N_D_AST1 | N_D_LIST | N_D_TYPE,             /*  42 aggregate */
  55.     N_D_AST1 | N_D_TYPE,                        /*  43 parenthesis */
  56.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  44 choice_list */
  57.     N_D_AST1 | N_D_AST2 | N_D_UNQ | N_D_TYPE,   /*  45 op */
  58.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  46 in */
  59.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  47 notin */
  60.     N_D_AST1 | N_D_AST2 | N_D_UNQ | N_D_TYPE,   /*  48 un_op */
  61.     N_D_AST1 | N_D_VAL | N_D_TYPE,              /*  49 int_literal */
  62.     N_D_AST1 | N_D_VAL | N_D_TYPE,              /*  50 real_literal */
  63.     N_D_AST1 | N_D_VAL | N_D_TYPE,              /*  51 string_literal */
  64.     N_D_AST1 | N_D_TYPE,                        /*  52 null */
  65.     N_D_AST1 | N_D_UNQ | N_D_TYPE,              /*  53 name */
  66.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  54 qualify */
  67.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  55 new_init */
  68.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  56 new */
  69.     N_D_AST1 | N_D_AST2,                        /*  57 statements */
  70.     N_D_AST1 | N_D_AST2,                        /*  58 statement */
  71.     N_D_AST1,                                   /*  59 null_s */
  72.     N_D_AST1 | N_D_AST2,                        /*  60 assignment */
  73.     N_D_AST1 | N_D_AST2,                        /*  61 if */
  74.     N_D_AST1 | N_D_AST2,                        /*  62 cond_statements */
  75.     N_D_AST1,                                   /*  63 condition */
  76.     N_D_AST1 | N_D_AST2,                        /*  64 case */
  77.     N_D_AST1 | N_D_AST2,                        /*  65 case_statements */
  78.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  66 loop */
  79.     N_D_AST1,                                   /*  67 while */
  80.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  68 for */
  81.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  69 forrev */
  82.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /*  70 block */
  83.     N_D_AST1 | N_D_AST2 | N_D_UNQ,              /*  71 exit */
  84.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  72 return */
  85.     N_D_AST1,                                   /*  73 goto */
  86.     N_D_AST1,                                   /*  74 subprogram_decl */
  87.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  75 procedure */
  88.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  76 function */
  89.     N_D_AST1 | N_D_VAL | N_D_UNQ | N_D_TYPE,    /*  77 operator */
  90.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /*  78 formal */
  91.     N_D_AST1 | N_D_VAL,                         /*  79 mode */
  92.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /*  80 subprogram */
  93.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  81 call */
  94.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  82 package_spec */
  95.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /*  83 package_body */
  96.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  84 private_decl */
  97.     N_D_AST1 | N_D_LIST,                        /*  85 use */
  98.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /*  86 rename_obj */
  99.     N_D_AST1 | N_D_AST2,                        /*  87 rename_ex */
  100.     N_D_AST1 | N_D_AST2,                        /*  88 rename_pack */
  101.     N_D_AST1 | N_D_AST2,                        /*  89 rename_sub */
  102.     N_D_AST1 | N_D_AST2 | N_D_UNQ | N_D_TYPE,   /*  90 task_spec */
  103.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_TYPE,  /*  91 task_type_spec */
  104.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /*  92 task */
  105.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /*  93 entry */
  106.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_TYPE,  /*  94 entry_family */
  107.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /*  95 accept */
  108.     N_D_AST1,                                   /*  96 delay */
  109.     N_D_AST1 | N_D_AST2,                        /*  97 selective_wait */
  110.     N_D_AST1 | N_D_AST2,                        /*  98 guard */
  111.     N_D_AST1 | N_D_AST2,                        /*  99 accept_alt */
  112.     N_D_AST1 | N_D_AST2,                        /* 100 delay_alt */
  113.     N_D_AST1 | N_D_VAL,                         /* 101 terminate_alt */
  114.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 102 conditional_entry_call */
  115.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 103 timed_entry_call */
  116.     N_D_AST1 | N_D_LIST,                        /* 104 abort */
  117.     N_D_AST1 | N_D_AST2,                        /* 105 unit */
  118.     N_D_AST1 | N_D_LIST,                        /* 106 with_use_list */
  119.     N_D_AST1 | N_D_LIST,                        /* 107 with */
  120.     N_D_AST1 | N_D_VAL,                         /* 108 subprogram_stub */
  121.     N_D_AST1 | N_D_VAL | N_D_UNQ,               /* 109 package_stub */
  122.     N_D_AST1 | N_D_VAL | N_D_UNQ,               /* 110 task_stub */
  123.     N_D_AST1 | N_D_AST2,                        /* 111 separate */
  124.     N_D_AST1 | N_D_LIST,                        /* 112 exception */
  125.     N_D_AST1 | N_D_LIST,                        /* 113 except_decl */
  126.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 114 handler */
  127.     N_D_AST1,                                   /* 115 others */
  128.     N_D_AST1 | N_D_TYPE,                        /* 116 raise */
  129.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /* 117 generic_function */
  130.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /* 118 generic_procedure */
  131.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /* 119 generic_package */
  132.     N_D_AST1 | N_D_LIST,                        /* 120 generic_formals */
  133.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /* 121 generic_obj */
  134.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 122 generic_type */
  135.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 123 gen_priv_type */
  136.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 124 generic_subp */
  137.     N_D_AST1,                                   /* 125 generic */
  138.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /* 126 package_instance */
  139.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /* 127 function_instance */
  140.     N_D_AST1 | N_D_AST2 | N_D_AST3 | N_D_AST4,  /* 128 procedure_instance */
  141.     N_D_AST1 | N_D_AST2,                        /* 129 instance */
  142.     N_D_AST1 | N_D_AST2,                        /* 130 length_clause */
  143.     N_D_AST1 | N_D_AST2,                        /* 131 enum_rep_clause */
  144.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 132 rec_rep_clause */
  145.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 133 compon_clause */
  146.     N_D_AST1,                                   /* 134 address_clause */
  147.     N_D_AST1,                                   /* 135 any_op */
  148.     N_D_AST1,                                   /* 136 opt */
  149.     N_D_AST1 | N_D_LIST,                        /* 137 list */
  150.     N_D_AST1 | N_D_UNQ,                         /* 138 range_expression */
  151.     N_D_AST1 | N_D_LIST,                        /* 139 arg_assoc_list */
  152.     N_D_AST1,                                   /* 140 private */
  153.     N_D_AST1,                                   /* 141 limited_private */
  154.     N_D_AST1,                                   /* 142 code */
  155.     N_D_AST1 | N_D_VAL,                         /* 143 line_no */
  156.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /* 144 index */
  157.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /* 145 slice */
  158.     N_D_AST1 | N_D_VAL,                         /* 146 number */
  159.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /* 147 convert */
  160.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 148 entry_name */
  161.     N_D_AST1 | N_D_AST2 | N_D_UNQ | N_D_TYPE,   /* 149 array_aggregate */
  162.     N_D_AST1 | N_D_AST2 | N_D_UNQ | N_D_TYPE,   /* 150 record_aggregate */
  163.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /* 151 ecall */
  164.     N_D_AST1 | N_D_AST2 | N_D_TYPE,             /* 152 call_or_index */
  165.     N_D_AST1 | N_D_VAL | N_D_TYPE,              /* 153 ivalue */
  166.     N_D_AST1 | N_D_TYPE,                        /* 154 qual_range */
  167.     N_D_AST1 | N_D_UNQ | N_D_TYPE,              /* 155 qual_index */
  168.     N_D_AST1 | N_D_UNQ | N_D_TYPE,              /* 156 qual_discr */
  169.     N_D_AST1,                                   /* 157 qual_arange */
  170.     N_D_AST1,                                   /* 158 qual_alength */
  171.     N_D_AST1 | N_D_TYPE,                        /* 159 qual_adiscr */
  172.     N_D_AST1 | N_D_TYPE,                        /* 160 qual_aindex */
  173.     N_D_AST1 | N_D_AST2,                        /* 161 check_bounds */
  174.     N_D_AST1 | N_D_UNQ | N_D_TYPE,              /* 162 discr_ref */
  175.     N_D_AST1 | N_D_UNQ | N_D_TYPE,              /* 163 row */
  176.     N_D_AST1 | N_D_UNQ,                         /* 164 current_task */
  177.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 165 check_discr */
  178.     N_D_AST1,                                   /* 166 end */
  179.     N_D_AST1 | N_D_VAL,                         /* 167 terminate */
  180.     N_D_AST1,                                   /* 168 exception_accept */
  181.     N_D_AST1,                                   /* 169 test_exception */
  182.     N_D_AST1 | N_D_TYPE,                        /* 170 create_task */
  183.     N_D_AST1 | N_D_AST2 | N_D_UNQ,              /* 171 predef */
  184.     N_D_AST1,                                   /* 172 deleted */
  185.     N_D_AST1 | N_D_LIST | N_D_TYPE,             /* 173 insert */
  186.     N_D_AST1,                                   /* 174 arg_convert */
  187.     N_D_AST1 | N_D_VAL,                         /* 175 end_activation */
  188.     N_D_AST1,                                   /* 176 activate_spec */
  189.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 177 delayed_type */
  190.     N_D_AST1 | N_D_UNQ | N_D_TYPE,              /* 178 qual_sub */
  191.     N_D_AST1 | N_D_AST2,                        /* 179 static_comp */
  192.     N_D_AST1 | N_D_AST2,                        /* 180 array_ivalue */
  193.     N_D_AST1 | N_D_AST2,                        /* 181 record_ivalue */
  194.     N_D_AST1,                                   /* 182 expanded */
  195.     N_D_AST1,                                   /* 183 choices */
  196.     N_D_AST1 | N_D_AST2,                        /* 184 init_call */
  197.     N_D_AST1 | N_D_AST2,                        /* 185 type_and_value */
  198.     N_D_AST1,                                   /* 186 discard */
  199.     N_D_AST1,                                   /* 187 unread */
  200.     N_D_AST1 | N_D_VAL | N_D_TYPE,              /* 188 string_ivalue */
  201.     N_D_AST1 | N_D_VAL,                         /* 189 instance_tuple */
  202.     N_D_AST1 | N_D_AST2 | N_D_AST3,             /* 190 entry_family_name */
  203.     N_D_AST1,                                   /* 191 astend */
  204.     N_D_AST1,                                   /* 192 astnull */
  205.     N_D_AST1 | N_D_AST2,                        /* 193 aggregate_list */
  206.     N_D_AST1 | N_D_UNQ,                         /* 194 interfaced */
  207. 0};
  208.